myfirst(input) where
       myfirst(X) = Y
            where
             Y = X fby Y;
            end;
     end
